home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Tools⁄Additions / InsideBa1994 / InsideBasic-94 / IB 94 / ToolBox Dates / Toolbox Dates.BAS
Encoding:
BASIC Source File  |  1993-02-21  |  1.1 KB  |  42 lines  |  [TEXT/ZBAS]
  1.  
  2. _daySec = 86400                      ' seconds per minute per hour * 24
  3.  
  4. DIM dateTimeRec.dateTimeRecSize      ' year, month, day, etc in FB!
  5.  
  6. ' ----------------------------------------------
  7.  
  8. LOCAL FN daysBetween(date1&,date2&)
  9.   diff& = ABS(date1&-date2&)
  10. END FN = (diff&/_daySec)
  11.  
  12. ' ----------------------------------------------
  13.  
  14. LOCAL FN dateToSecs(mo,day,yr)
  15.   dateTimeRec.year      = yr
  16.   dateTimeRec.month     = mo
  17.   dateTimeRec.day       = day
  18.   dateTimeRec.hour      = 0          ' could use these if you had them!
  19.   dateTimeRec.minute    = 0
  20.   dateTimeRec.second    = 0
  21.   dateTimeRec.dayOfWeek = 0
  22. END FN = FN DATE2SECS(@dateTimeRec)
  23.  
  24. ' ----------------------------------------------
  25.  
  26. WINDOW 1
  27. today& = [_Time]                     ' _Time = &020C
  28. CALL SECS2DATE(today&,@dateTimeRec)
  29. PRINT "Today's date: "
  30. PRINT "Month: ";dateTimeRec.month
  31. PRINT "Day: ";dateTimeRec.day
  32. PRINT "Year: ";dateTimeRec.year
  33. PRINT "Day of the week: ";dateTimeRec.dayOfWeek
  34. PRINT
  35. oldDate& = today& - 300000           ' arbitrary old date
  36. days = FN daysBetween(today&,oldDate&)
  37. PRINT "The old date was ";days;" days ago."
  38. INPUT r$
  39. END
  40.  
  41.  
  42.